Visual Basic.NET - como puedo conectar visual basic 2010 con sql 2008 r2 mediante codigo

Quiero conectar visual basic 2010 con sql 2008 r2 pero me sale error espero me puedan ayudar
este es mi codigo
CodeFile1.vb:

Imports System.Data.SqlClient

Module CodeFile1

Dim cadena As String = "server=RICHARD_GM-HP\SQLEXPRESS;initial Catalog=BDCINE;integrated Security=true"

Public cn As New SqlConnection(cadena)
End Module
CONEXION.vb :

Imports System.Data.SqlClient
Public Class CONEXION
Protected cnn As New SqlConnection
Protected Function conectado()
Try
cnn = New SqlConnection("DataSource (local);initial catalog=prueba ;integrated security=true")
cnn.Close()
Return True

Catch ex As Exception
MsgBox(ex.Message)
Return False

End Try

End Function
Protected Function desconectado()
Try
If cnn.State = ConnectionState.Open Then
cnn.Close()
Return True
Else
Return False


End If
Catch ex As Exception
MsgBox(ex.Message)
Return False


End Try
End Function
End Class
from ejemplo

Imports System.Data.SqlClient


Public Class ejemplo
Dim cmd As New SqlCommand
Dim dt As DataTable
Dim da As SqlDataAdapter
Public Sub mostrargrisha()
da = New SqlDataAdapter("select id_usuario,nombre,apellido,cargo,contraseña from usuario", cn)
dt = New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt




End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mostrargrisha()

End Sub


al ejecutar sale error:

No se puede abrir la base de datos "BDCINE" solicitada por el inicio de sesión. Error de inicio de sesión.
Error de inicio de sesión del usuario 'RICHARD_GM-HP\RICHARD_GM'.