Você está procurando pelo
ALTER TABLE
sql.Ou o Coleção de colunas SQLDMO (Por favor, verifique o aviso no início da página)
Um comando ALTER TABLE para adicionar uma coluna pode ser codificado dessa maneira
Dim cn As SqlConnection
Dim cmd As SqlCommand
Using cn = GetConnection()
cn.Open()
Using cmd = new SqlCommand()
cmd.Connection = cn
cmd.CommandText = "ALTER TABLE myTable ADD aNewColumn VARCHAR(20) NULL"
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
End Using
End Using