Erro

[Chamuanza]

Oi amigo Paulino

estou a aplicar o código que enviaste,mas está a dar-me erro no da.Fill(ds, "Principal")

"Must declare the scalar variable "@DataInicio"

Agora é queestou a zero

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        ' Declaração de variáveis privadas
        Dim da As SqlDataAdapter
        Dim ds As DataSet


        ' Texto de ligação à base de dados
        Dim myConnectionString As String = _
        "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Utilizador\" & _
        "My Documents\BalancoFamiliar.mdf;" & _
        "Integrated Security=True;Connect Timeout=30;User Instance=True"

        ' Cria uma nova ligação à base de dados
        Dim connection As New SqlConnection(myConnectionString)


        Dim SQL As String = "SELECT Id,Data,Deposito,Designacao [Designação],Categoria,SubCategoria,Familia FROM Principal Where [Data] Between @DataInicio And @DataFim"


        da = New SqlDataAdapter(SQL, connection)
        da.SelectCommand.Parameters.Add("@DataInicio", SqlDbType.DateTime).Value = DateTimePicker1.Value
        da.SelectCommand.Parameters.Add("@DataFim", SqlDbType.DateTime).Value = DateTimePicker2.Value


        da = New SqlDataAdapter(SQL, connection)

        ' Cria um novo DataSet, ou seja, uma representação em memória da informação
        ds = New DataSet

        ' Coloca a informação da tabela definida no DataSet
        da.Fill(ds, "Principal")

        ' Define que a fonte de dados da DataGridView é a nossa DataSet
        ' criando automáticamente as colunas e linhas de dados
        Me.DataGridView2.DataSource = ds.Tables("Principal")


        ' Limpa a ligação à base de dados. Não é necessário fechar a ligação
        ' porque esta não foi aberta através do comando .Open()
        connection = Nothing

        Call ControlaGrid()



    End Sub

[jpaulino]

Tens duas vezes isto:

da = New SqlDataAdapter(SQL, connection)

Apaga o segundo

[Chamuanza]

Oi amigo  Paulino

Já deu tudo certo,  😁

obrigado pela atenção, fico com mais uma na manga com se costuma dizer

Até a proxima