PRECISO MIGRAR DE BANCO DE DADOS URGENTE

Citação:

:
Resumo de minha historia:

Trabalho com DAO e ACCESS 97

Recentemente vendi meu sistema para um mini-supermercado onde possui 2 terminais.

Estou com minha cabeça doendo de tanta reclamação por causa da lerdeza...

Sabe o que é passar um pente fino no sistema, pois eu deixei ele exurto.... tudo que podia comprometer a performance do sistema eu fiz... em relação a DAO e ACCESS 97 trabalho com grande quantidade de dados eu desistir

então quiz mudar para SQL Server Express 2005, mas não fui nem para frente e nem para traz... não conseguir nem converter o banco de dados:

Olha o ultimo topico que coloquei sobre e está em aberto até hoje:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=358856

Queria que alguem me ajudasse, pois a dona do supermercado me liga as 7hs da manha e eu tô de cabeça conte com isso:
Preciso mudar para uma base de dados que seja rapida e que aceite converter banco de dados access para ela.... pois preciso dos dados e da estrututa das tabelas... e o mais importante que seja facil, pois nunca mexi em nada que não fosse access

Alguem pode me ensinar os caminhos das pedras?

Obrigado!

Global BD As Database
Global DB As Database
Global AreaTrabalho As Workspace

Sub execSQL(SQL As String)
Set DB = OpenDatabase([Ô]\\SERVIDOR\SISTEMA\Cyberbase.mdb[Ô])
DB.Execute SQL
DB.Close
End Sub

Sub ABRIR_BD_SEM_DATA1()
Set AreaTrabalho = DBEngine.Workspaces(0)
Set BD = AreaTrabalho.OpenDatabase([Ô]\\SERVIDOR\SISTEMA\Cyberbase.mdb[Ô], False, False)
End Sub

    Verifica_QuantEstoque
    If VERIFICAR_QUANTIDADE = True Then
        LimparObjetos_Produto
        Exit Sub
    End If

    [ô]ADICIONAR O PRODUTO
    Autonumeracao_Itens
    execSQL [Ô]INSERT INTO PEDIDOS_ITENS VALUES([Ô] & Y & [Ô],[Ô] & txtCodPedido.Text & [Ô], 0 , [Ô] & txtCodProduto.Text & [Ô],[ô][Ô] & lblDesc.Caption & [Ô][ô],[ô][Ô] & txtValor.Text & [Ô][ô],[Ô] & Replace(txtQuant.Text, [Ô],[Ô], [Ô].[Ô]) & [Ô], [ô][Ô] & txtTotal.Text & [Ô][ô], [ô]R[ô], 0, #[Ô] & Format(Date, [Ô]MM/DD/YYYY[Ô]) & [Ô]#, [ô]BALCÃO[ô])[Ô]

    LimparObjetos_Produto

    [ô]MOSTRAR NA GRADE
    Mostrar_Produtos
    txtCodBarra.SetFocus

Private Sub Autonumeracao_Itens()
        Call ABRIR_BD_SEM_DATA1
        SQL = [Ô]SELECT MAX(CODIGO) as ULTIMO_ITEM FROM PEDIDOS_ITENS[Ô]
        Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)
        
        Y = IIf(IsNull(RS.Fields!ULTIMO_ITEM) = True, 1, RS.Fields!ULTIMO_ITEM + 1)
End Sub

Private Sub Mostrar_Produtos()
    If txtCodPedido.Text = [Ô][Ô] Then Exit Sub
    Call ABRIR_BD_SEM_DATA1
    SQL = [Ô]SELECT CODIGO, COD_PRODUTO, DESCRICAO, Preco, QUANTIDADE, Total FROM PEDIDOS_ITENS WHERE COD_PEDIDO = [Ô] & txtCodPedido.Text & [Ô] ORDER BY CODIGO DESC[Ô]
    Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)
    
    FormatarGrid
End Sub

Private Sub Verifica_Existencia_Produto()
If txtCodBarra.Text = [Ô][Ô] Then Exit Sub
Call ABRIR_BD_SEM_DATA1
SQL = [Ô]SELECT (PRODUTOS.COD_BARRA) AS VAR_CODBARRA, (PRODUTOS.UNID_MEDIDA) AS VAR_UNIDMED, (PRODUTOS.CODIGO) AS VAR_CODPROD, (PRODUTOS.DESCRICAO) AS VAR_DESC, (PRODUTOS_ENTRADA_ITENS.VENDA) AS VAR_VENDA FROM (PRODUTOS LEFT JOIN ULTIMAS_ENTRADAS ON PRODUTOS.CODIGO = ULTIMAS_ENTRADAS.CODIGO_PRODUTO) LEFT JOIN PRODUTOS_ENTRADA_ITENS ON (ULTIMAS_ENTRADAS.CODIGO_PRODUTO = PRODUTOS_ENTRADA_ITENS.CODIGO_PRODUTO) AND (ULTIMAS_ENTRADAS.ULTENTRADA = PRODUTOS_ENTRADA_ITENS.CODIGO_ENTRADA) WHERE PRODUTOS.COD_BARRA = [ô][Ô] & txtCodBarra.Text & [Ô][ô] and PRODUTOS.ATIVO = TRUE[Ô]
Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)

EXISTENCIA_PRODUTO = False

If RS.RecordCount <= 0 Then
    MsgBox [Ô]Produto não cadastrado![Ô], vbInformation, [Ô]aviso do Sistema[Ô]
    EXISTENCIA_PRODUTO = True
End If
End Sub