Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM er", New _
          OleDb.OleDbConnection("{DEIN_CONN_STRING}"))
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim sql As String = cb.GetInsertCommand
        MessageBox.Show(sql)