Devi creare un modulo e all'interno scrivere un codice tipo questo:
codice:
    Public Sub Main(ByVal CmdArgs() As String)
        Dim f As Form1

        If CmdArgs.GetUpperBound(0) >= 0 Then
            f = New Form1(CmdArgs(0))
        Else
            f = New Form1
        End If

        f.ShowDialog()
    End Sub
Poi vai nelle proprietà del progetto e imposta "startup project" a "sub main". Se per caso non trovi questa opzione, togli la spunta da "enable application framework".

Così facendo, alla partenza del programma viene eseguita per prima la sub Main, che come puoi vedere ha un array di parametri in ingresso. Il valore del primo elemento nell'array viene passato da Windows quando fai doppio click sul file associato all'applicazione (nel tuo caso .dsa) e contiene il percorso del file da aprire.

Nell'esempio controllo che CmdArgs contenga effettivamente qualcosa (altrimenti GetUpperBound(0) restituirebbe -1), se è così passo il valore a Form1, altrimenti procedo come se avessi avviato il programma normalmente.

Per passare il valore a Form1 ho usato un overload del metodo New, ma puoi anche usare altri sistemi (proprietà pubblica, variabile globale, ecc.).