[AccessD] Alter table and alter column

I am using the following code to change the data type of one field in a
table. Can I change more than one in a single SQL statement?
Function ChangeDataType()
    Dim cnn As ADODB.Connection
    Dim strSQL As String
    Set cnn = CurrentProject.Connection
    strSQL = "ALTER TABLE [tbl_30da] ALTER COLUMN GTM single"
    cnn.Execute strSQL
End Function

Chester Kaup
Information Management Technician
IT-MidContinent/MidContinent Business Unit
CTN 8-687-7415  
Outside 432-687-7415

No trees were killed in the sending of this message. However a large
number of electrons were terribly inconvenienced.