dim DbFullName as string = "c:\userdb.db" Dim qstr1 As String = "SELECT c3 ,c5 , c2 ,c4 ,c1 FROM tab1;" dim DbConn As SQLiteConnection Dim ConnStrBuilder As New SQLiteConnectionStringBuilder With { .DataSource = DbFullName} DbConn = New SQLiteConnection With {.ConnectionString = ConnStrBuilder.ConnectionString} Try