Creo que ya entendi tu no quieres abrirlo si no ejecutar un archivo o abrirlo con el programa asociado verdad??

pon esto en el button2

 If TextBox1.Text = "" Then Exit Sub
        Dim myFile As ProcessStartInfo
        myFile = New ProcessStartInfo(TextBox1.Text)
 
        Process.Start(myFile)

Quieres abir un archivo .sorpresa?? que formato tienen esos archivos??

Esto te puede servir http://www.elguille.info/NET/ADONET/ejemplo_adonet_bases_tipo_access.htm

Saludos!!!!!!!!!!!

Pues inicializa la variable en el evento SelectedIndexChanged o SelectedValueChanged

Yo pondria el form2 como principal y en el evento load pondria:

if(Form1.ShowDialog==DialogResul.OK)
{
       this.variable=Form1.propiedad;
       Form1.Close();
}

Pues clases nativas no encontre!!!!!!! pero si te sirve aqui las fuentes del ping pero en C.

http://www.ping127001.com/pingpage/ping.text

Y no olvidar que en las verciones express debes habilitar tcp/ip para permitir conexiones de red aqui un link:

http://msdn.microsoft.com/es-pe/library/bb909712%28v=vs.90%29.aspx

En File.Exists() debes pasarle la ruta de la base de datos talves es ese tu problema

Crea un Nuevo Proyecto llamado MiClase, agrega una clase llamada Reader y otra Writer, define los metodos y propiedades que quieras dentro de cada clase.

Nota: Leer un buen manual de C#

"SQLite error no such table: CMB_USUARIO" acabo de probar las fuentes que me mandaste y eh llegado a la conclusión que sencillamente la base de datos no se copia al emulador o en tu caso al dispositivo. Para ello use "File.Exists("CLAS_MOBILE.db")" y siempre me decia que no existe la base de datos

If (File.Exists("CLAS_MOBILE.db")) Then                 
        consulta = String.Format("SELECT USU_USUARIO,USU_ZONA FROM CMB_USUARIO WHERE USU_USUARIO='{0}'", USUARIO.Text)
 
        Dim Ada As New SQLiteDataAdapter()
        Dim Sqlstr As New SQLiteCommand(consulta, cnn)
        Dim dr As SQLiteDataReader = Sqlstr.ExecuteReader(CommandBehavior.CloseConnection)
        While dr.Read
             Dim value As Object = dr.Item("USU_ZONA")
             If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
        End While
        dr.Close()
Else
        MessageBox.Show("No existe base de datos", "Error")
End If

Solución:

1° Método que no entendí porque me dio flojera :
visita http://social.msdn.microsoft.com/Forums/es/netfxcompactes/thread/265e4adb-ba0c-440a-808a-f63590ada195 y has lo que hay dicen para poder copiar archivos(tu base de datos entre otras cosas) al emulador o copia directamente al dispositivo en el que estás trabajando  y si es posible explícame.

2° Método que yo haría si fuera el caso:
Pues consiste en crear la base de datos con código, para ello has de tomar en cuenta que si al "SQLiteConnection" le enviamos como parámetro "Data Source=CLAS_MOBILE.db"  y ejecutamos el método Open() pues no genera ningún error así "CLAS_MOBILE.db" no exista, y tranquilamente ejecutas un CREATE TABLE:

Private Sub CrearTablas(ByVal Cnn As SQLiteConnection)
        Using _Cmd As SQLiteCommand = Cnn.CreateCommand
             _Cmd.CommandText = "CREATE TABLE CMB_USUARIO (USU_USUARIO VARCHAR (8) NOT NULL,USU_PASS VARCHAR (8) NOT NULL,USU_ZONA VARCHAR (25) NOT NULL)"
             _Cmd.ExecuteNonQuery()
 
            _Cmd.CommandText = "INSERT INTO CMB_USUARIO VALUES('usu01','123456','peru')"
            _Cmd.ExecuteNonQuery()
        End Using
End Sub 

despues podrias colocar en el evento load del form lo siguiente:

cnn = New SQLiteConnection("Data Source=CLAS_MOBILE.db;Version=3;")
cnn.Open()
Try
     If (Not File.Exists("CLAS_MOBILE.db")) Then
         CrearTablas(cnn)
     End If
Catch ex As Exception
     MessageBox.Show(ex.Message, "Error")
End Try

aquí todo el code:

Imports System
Imports System.Data
Imports System.IO
Imports System.Data.SQLite
 
Public Class Form1
    Public ruta As String
    Dim cnn As New SQLiteConnection
    Public consulta As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn = New SQLiteConnection("Data Source=CLAS_MOBILE.db;Version=3;")
        cnn.Open()
        Try
            If (Not File.Exists("CLAS_MOBILE.db")) Then
                CrearTablas(cnn)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error")
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If USUARIO.Text = "" Or PASSWORD.Text = "" Then
            MessageBox.Show("Debe Ingresar Usuario y Contraseña")
        Else
            Try
                If (File.Exists("CLAS_MOBILE.db")) Then
 
 
                    consulta = String.Format("SELECT USU_USUARIO,USU_ZONA FROM CMB_USUARIO WHERE USU_USUARIO='{0}'", USUARIO.Text)
 
                    Dim Ada As New SQLiteDataAdapter()
                    Dim Sqlstr As New SQLiteCommand(consulta, cnn)
                    Dim dr As SQLiteDataReader = Sqlstr.ExecuteReader(CommandBehavior.CloseConnection)
                    While dr.Read
                        Dim value As Object = dr.Item("USU_ZONA")
                        If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
                    End While
                    dr.Close()
                Else
                    MessageBox.Show("No existe base de datos", "Error")
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error")
            End Try
        End If
    End Sub
 
    Private Sub CrearTablas(ByVal Cnn As SQLiteConnection)
        Using _Cmd As SQLiteCommand = Cnn.CreateCommand
 
            _Cmd.CommandText = "CREATE TABLE CMB_USUARIO (USU_USUARIO VARCHAR (8) NOT NULL,USU_PASS VARCHAR (8) NOT NULL,USU_ZONA VARCHAR (25) NOT NULL)"
            _Cmd.ExecuteNonQuery()
 
            _Cmd.CommandText = "INSERT INTO CMB_USUARIO VALUES('usu01','123456','peru')"
            _Cmd.ExecuteNonQuery()
        End Using
    End Sub
End Class
 
 

Nota: Yo usaria un Select Count para comprobar usuario y un ExecuteScalar para recoger el valor devuelto si es cero el usuario no existe y si es 1 pues si.

Saludos y suerte!!!!!!!!!