Private Sub btnAcessaMSDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAcessaMSDE.Click
        Dim da As SqlDataAdapter

        ' Cria um objeto SqlDataAdapter
        da = New SqlDataAdapter("Select * from Clientes", string_conexao)

        ' Mapeia a tabela Clientes
        da.TableMappings.Add("Table", "Clientes")

        ' Preenche o dataset
        Dim ds = New DataSet
        Try
            da.Fill(ds)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

        ' Vincula o dataset ao datagrid
        dgMSDE.SetDataBinding(ds, "Clientes")

    End Sub

1. txtMSDE - MACORATTI\VSDOTNET (servidor MSDE)
2. txtBdMSDE - Macoratti (Nome do banco de dados a ser criado)
3. txtTabelaMSDE - Links (nome da tabela a ser criada)

Label - lblStatus - Exibe o status da operãção realizada

Um GroupBox - grpMSDE - agrupa os botões de comando.

4 botões de comando :

1. btnConectaMSDE - conecta com MSDE
2. btnCriaBdMSDE - cria e seleciona o banco de dados
3. btnCriaTabelaMSDE - cria tabela no Banco de dados
4. btnDropMSDE - exclui banco de dados criado.

Obs: Os nomes definidos nas caixas de texto são os usados no projeto do artigo mas você pode alterar a seu gosto.

  Private Sub btnConectaMSDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConectaMSDE.Click
        ' Conectando como servidor MSDE
        lblStatus.Text = "Conectando com servidor MSDE..."
        Try
            conexao_db.Open()
            MsgBox("Conexao com servidor " & txtMSDE.Text & " realizada com sucesso.", MsgBoxStyle.Information)
            lblStatus.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

Private Sub btnCriaBdMSDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCriaBdMSDE.Click

        ' cria um objeto sqlcommand
        comando_sql.Connection = conexao_db

        ' Cria o banco de dados Macoratti
        lblStatus.Text = "Criando o banco de dados"
        lblStatus.Refresh()

        comando_sql.CommandText = _
            "CREATE DATABASE Macoratti " & _
            "ON (" & _
            "  NAME = Macoratti_data, " & _
            "  FILENAME = 'C:\Temp\Macoratti.mdf'," & _
            "  SIZE = 2MB," & _
            "  MAXSIZE = 10MB," & _
            "  FILEGROWTH = 2MB)" & _
            "LOG ON(" & _
            "  NAME = MyDB_log," & _
            "  FILENAME = 'C:\Temp\Macoratti.ldf'," & _
            "  SIZE = 1MB," & _
            "  MAXSIZE = 5MB," & _
            "FILEGROWTH = 1MB)"
        Try

            ' Seleciona o banco de dados para uso
            comando_sql.ExecuteNonQuery()
            lblStatus.Text = "Selecionando o Banco de dados"
            lblStatus.Refresh()

            comando_sql.CommandText = "USE Macoratti"
            comando_sql.ExecuteNonQuery()

            MsgBox("Banco de dados " & txtBdMSDE.Text & " Criando e selecionado com sucesso.", MsgBoxStyle.Information)

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btnCriaTabelaMSDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCriaTabelaMSDE.Click

        ' Cria a tabela Links.
        lblStatus.Text = "Criando uma tabela no banco de dados."
        lblStatus.Refresh()

        comando_sql.CommandText = "CREATE TABLE Links (" & _
                                  "  Nome     VARCHAR(60)   PRIMARY KEY," & _
                                  "  URL      VARCHAR(60)   NOT NULL)"

        Try

            comando_sql.ExecuteNonQuery()
            ' Inseri um registro
            lblStatus.Text = "Inserindo registros..."
            lblStatus.Refresh()

            comando_sql.CommandText = "INSERT INTO Links VALUES (" & _
                                      "'Visual Basic , Visual Basic .NET , ASP e ASP.NET'," & _
                                      "'http://www.macoratti.net')"

            MsgBox("Tabela : " & txtTabelaMSDE.Text & " criada e registros inseridos com sucesso...", MsgBoxStyle.Information)

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

Private Sub btnDropMSDE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDropMSDE.Click
        ' Exclui banco de dados 
        lblStatus.Text = "Excluindo o banco de dados : " & txtBdMSDE.Text
        lblStatus.Refresh()

        comando_sql.CommandText = "DROP DATABASE " & txtBdMSDE.Text

        Try
            comando_sql.ExecuteNonQuery()
            MsgBox("Banco de dados : " & txtBdMSDE.Text & " excluido com sucesso...", MsgBoxStyle.Information)
            lblStatus.Text = "Operação realizada com sucesso."
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        Finally
            ' fecha a conexao
            conexao_db.Close()
        End Try
    End Sub

  If ds.HasChanges() Then
        Dim da As SqlDataAdapter
        Dim cmd_builder As SqlCommandBuilder

        ' Cria um dataadapter
        da = New SqlDataAdapter(SELECT_STRING, CONNECT_STRING)

        ' Mapeia a tabela 
        da.TableMappings.Add("Table", "Clientes")

        ' Faz o CommandBuilder gerar os comandos 
        ' insert, update, e delete.
        cmd_builder = New SqlCommandBuilder(data_adapter)

        ' Salva as alterações e atualiza o banco de dados
        da.Update(ds)
    End If